home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility3 / vbawk.zip / SPLITTER.FRM < prev    next >
Text File  |  1993-07-22  |  11KB  |  308 lines
  1. VERSION 2.00
  2. Begin Form Splitter 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Resize controls using the colored splitter bars"
  5.    Height          =   4185
  6.    Left            =   1170
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   3720
  9.    ScaleWidth      =   7725
  10.    Top             =   1245
  11.    Width           =   7905
  12.    Begin VideoSoftElastic VSElastic1 
  13.       Align           =   5  'Fill Container
  14.       AutoSizeChildren=   2  'Uneven Horizontally
  15.       BackColor       =   &H0000FF00&
  16.       BevelInner      =   3  'Inset
  17.       BevelInnerWidth =   1
  18.       BevelOuter      =   2  'Raised Outlined
  19.       BevelOuterWidth =   2
  20.       BorderWidth     =   0
  21.       Caption         =   ""
  22.       CaptionPos      =   1  'Left Center
  23.       ChildSpacing    =   6
  24.       FloodColor      =   &H000000C0&
  25.       FloodDirection  =   0  'None
  26.       FloodPercent    =   0
  27.       Height          =   3720
  28.       Left            =   0
  29.       Splitter        =   1  'Yes (with uneven spacing)
  30.       TabIndex        =   0
  31.       Top             =   0
  32.       Width           =   7725
  33.       Begin VideoSoftElastic VSElastic7 
  34.          Align           =   0  'None
  35.          AutoSizeChildren=   2  'Uneven Horizontally
  36.          BackColor       =   &H0000FF00&
  37.          BevelInner      =   3  'Inset
  38.          BevelInnerWidth =   1
  39.          BevelOuter      =   2  'Raised Outlined
  40.          BevelOuterWidth =   2
  41.          BorderWidth     =   0
  42.          Caption         =   ""
  43.          CaptionPos      =   1  'Left Center
  44.          ChildSpacing    =   6
  45.          FloodColor      =   &H000000C0&
  46.          FloodDirection  =   0  'None
  47.          FloodPercent    =   0
  48.          Height          =   3720
  49.          Left            =   0
  50.          Splitter        =   1  'Yes (with uneven spacing)
  51.          TabIndex        =   11
  52.          Top             =   0
  53.          Width           =   5220
  54.          Begin VideoSoftElastic VSElastic2 
  55.             Align           =   0  'None
  56.             AutoSizeChildren=   4  'Uneven Vertically
  57.             BackColor       =   &H00C0C0C0&
  58.             BevelInner      =   3  'Inset
  59.             BevelInnerWidth =   1
  60.             BevelOuter      =   2  'Raised Outlined
  61.             BevelOuterWidth =   2
  62.             BorderWidth     =   6
  63.             Caption         =   ""
  64.             CaptionPos      =   1  'Left Center
  65.             ChildSpacing    =   6
  66.             FloodColor      =   &H000000C0&
  67.             FloodDirection  =   0  'None
  68.             FloodPercent    =   0
  69.             Height          =   3720
  70.             Left            =   0
  71.             Splitter        =   0  'No
  72.             TabIndex        =   12
  73.             Top             =   0
  74.             Width           =   2565
  75.             Begin DirListBox Dir1 
  76.                Height          =   2955
  77.                Left            =   90
  78.                TabIndex        =   13
  79.                Top             =   495
  80.                Width           =   2385
  81.             End
  82.             Begin DriveListBox Drive1 
  83.                Height          =   315
  84.                Left            =   90
  85.                TabIndex        =   14
  86.                Top             =   90
  87.                Width           =   2385
  88.             End
  89.          End
  90.          Begin VideoSoftElastic VSElastic3 
  91.             Align           =   0  'None
  92.             AutoSizeChildren=   1  'Even Horizontally
  93.             BackColor       =   &H00C0C0C0&
  94.             BevelInner      =   3  'Inset
  95.             BevelInnerWidth =   1
  96.             BevelOuter      =   2  'Raised Outlined
  97.             BevelOuterWidth =   2
  98.             BorderWidth     =   6
  99.             Caption         =   ""
  100.             CaptionPos      =   1  'Left Center
  101.             ChildSpacing    =   6
  102.             FloodColor      =   &H000000C0&
  103.             FloodDirection  =   0  'None
  104.             FloodPercent    =   0
  105.             Height          =   3720
  106.             Left            =   2655
  107.             Splitter        =   0  'No
  108.             TabIndex        =   15
  109.             Top             =   0
  110.             Width           =   2565
  111.             Begin FileListBox File1 
  112.                Height          =   3540
  113.                Left            =   90
  114.                TabIndex        =   16
  115.                Top             =   90
  116.                Width           =   2385
  117.             End
  118.          End
  119.       End
  120.       Begin VideoSoftElastic VSElastic4 
  121.          Align           =   0  'None
  122.          AutoSizeChildren=   4  'Uneven Vertically
  123.          BackColor       =   &H0000FF00&
  124.          BevelInner      =   3  'Inset
  125.          BevelInnerWidth =   1
  126.          BevelOuter      =   2  'Raised Outlined
  127.          BevelOuterWidth =   2
  128.          BorderWidth     =   0
  129.          Caption         =   ""
  130.          CaptionPos      =   1  'Left Center
  131.          ChildSpacing    =   6
  132.          FloodColor      =   &H000000C0&
  133.          FloodDirection  =   0  'None
  134.          FloodPercent    =   0
  135.          Height          =   3720
  136.          Left            =   5310
  137.          Splitter        =   1  'Yes (with uneven spacing)
  138.          TabIndex        =   1
  139.          Top             =   0
  140.          Width           =   2415
  141.          Begin VideoSoftElastic VSElastic6 
  142.             Align           =   0  'None
  143.             AutoSizeChildren=   3  'Even Vertically
  144.             BackColor       =   &H00C0C0C0&
  145.             BevelInner      =   3  'Inset
  146.             BevelInnerWidth =   1
  147.             BevelOuter      =   2  'Raised Outlined
  148.             BevelOuterWidth =   2
  149.             BorderWidth     =   6
  150.             Caption         =   ""
  151.             CaptionPos      =   1  'Left Center
  152.             ChildSpacing    =   6
  153.             FloodColor      =   &H000000C0&
  154.             FloodDirection  =   0  'None
  155.             FloodPercent    =   0
  156.             Height          =   2985
  157.             Left            =   0
  158.             Splitter        =   0  'No
  159.             TabIndex        =   6
  160.             Top             =   0
  161.             Width           =   2415
  162.             Begin CommandButton Command1 
  163.                Caption         =   "&Colors"
  164.                FontBold        =   0   'False
  165.                FontItalic      =   0   'False
  166.                FontName        =   "MS Sans Serif"
  167.                FontSize        =   8.25
  168.                FontStrikethru  =   0   'False
  169.                FontUnderline   =   0   'False
  170.                Height          =   630
  171.                Index           =   0
  172.                Left            =   90
  173.                TabIndex        =   10
  174.                Top             =   90
  175.                Width           =   2235
  176.             End
  177.             Begin CommandButton Command1 
  178.                Caption         =   "Tile &Horizontally"
  179.                FontBold        =   0   'False
  180.                FontItalic      =   0   'False
  181.                FontName        =   "MS Sans Serif"
  182.                FontSize        =   8.25
  183.                FontStrikethru  =   0   'False
  184.                FontUnderline   =   0   'False
  185.                Height          =   630
  186.                Index           =   1
  187.                Left            =   90
  188.                TabIndex        =   9
  189.                Top             =   810
  190.                Width           =   2235
  191.             End
  192.             Begin CommandButton Command1 
  193.                Caption         =   "Tile &Vertically"
  194.                FontBold        =   0   'False
  195.                FontItalic      =   0   'False
  196.                FontName        =   "MS Sans Serif"
  197.                FontSize        =   8.25
  198.                FontStrikethru  =   0   'False
  199.                FontUnderline   =   0   'False
  200.                Height          =   630
  201.                Index           =   2
  202.                Left            =   90
  203.                TabIndex        =   8
  204.                Top             =   1530
  205.                Width           =   2235
  206.             End
  207.             Begin CommandButton Command1 
  208.                Caption         =   "&Fonts"
  209.                FontBold        =   0   'False
  210.                FontItalic      =   0   'False
  211.                FontName        =   "MS Sans Serif"
  212.                FontSize        =   8.25
  213.                FontStrikethru  =   0   'False
  214.                FontUnderline   =   0   'False
  215.                Height          =   645
  216.                Index           =   3
  217.                Left            =   90
  218.                TabIndex        =   7
  219.                Top             =   2250
  220.                Width           =   2235
  221.             End
  222.          End
  223.          Begin VideoSoftElastic VSElastic5 
  224.             Align           =   0  'None
  225.             AutoSizeChildren=   1  'Even Horizontally
  226.             BackColor       =   &H00C0C0C0&
  227.             BevelInner      =   3  'Inset
  228.             BevelInnerWidth =   1
  229.             BevelOuter      =   2  'Raised Outlined
  230.             BevelOuterWidth =   2
  231.             BorderWidth     =   6
  232.             Caption         =   ""
  233.             CaptionPos      =   1  'Left Center
  234.             ChildSpacing    =   6
  235.             FloodColor      =   &H000000C0&
  236.             FloodDirection  =   0  'None
  237.             FloodPercent    =   0
  238.             Height          =   645
  239.             Left            =   0
  240.             Splitter        =   0  'No
  241.             TabIndex        =   2
  242.             Top             =   3075
  243.             Width           =   2415
  244.             Begin CommandButton Command1 
  245.                Caption         =   "A"
  246.                Height          =   465
  247.                Index           =   6
  248.                Left            =   90
  249.                TabIndex        =   5
  250.                Top             =   90
  251.                Width           =   675
  252.             End
  253.             Begin CommandButton Command1 
  254.                Caption         =   "B"
  255.                Height          =   465
  256.                Index           =   5
  257.                Left            =   855
  258.                TabIndex        =   4
  259.                Top             =   90
  260.                Width           =   675
  261.             End
  262.             Begin CommandButton Command1 
  263.                Caption         =   "C"
  264.                Height          =   465
  265.                Index           =   4
  266.                Left            =   1620
  267.                TabIndex        =   3
  268.                Top             =   90
  269.                Width           =   705
  270.             End
  271.          End
  272.       End
  273.    End
  274. End
  275. Option Explicit
  276.  
  277. Sub Command1_Click (Index As Integer)
  278.   Dim newcolor&
  279.   Select Case Index
  280.  
  281.     Case 0  'Change to random colors
  282.       newcolor = QBColor(Rnd * 15)
  283.       VSelastic1.BackColor = newcolor
  284.       VSelastic4.BackColor = newcolor
  285.       Vselastic7.BackColor = newcolor
  286.  
  287.     Case 1  'Tile Vertically
  288.       Vselastic7.AutoSizeChildren = 3
  289.       Vselastic7.Refresh
  290.       Vselastic7.AutoSizeChildren = 4
  291.  
  292.     Case 2  'Tile Horizontally
  293.       Vselastic7.AutoSizeChildren = 1
  294.       Vselastic7.Refresh
  295.       Vselastic7.AutoSizeChildren = 2
  296.  
  297.     Case 3   'Fonts
  298.       File1.FontSize = (File1.FontSize + 2) Mod 13
  299.       Drive1.FontSize = (Drive1.FontSize + 2) Mod 13
  300.       Dir1.FontSize = (Dir1.FontSize + 2) Mod 13
  301.   End Select
  302. End Sub
  303.  
  304. Sub Form_Resize ()
  305.   VSelastic1.Top = 0
  306. End Sub
  307.  
  308.